home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
pgvw174.zip
/
RSB5CHAT.MRG
< prev
Wrap
Text File
|
1992-06-22
|
967b
|
21 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB5.BAS to produce NEW\RSB5CHAT.BAS
* RBBSSUB5.BAS: Date 6-20-1992 Size 116575 bytes
* ------------[ Created 06-22-1992 11:38:11 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
20247 CALL ViewStat ("G") ' DR062201
ZWasDF = 0
CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
IF ZAutoDownInProgress THEN _
ZUserIn$(ZAnsIndex) = WasX$ + "." + Extension$ : _
ZOutTxt$ = "Transferring -- " + _
ZUserIn$(ZAnsIndex) : _
GOSUB 21640 : _
IF ZFileSysParm > 1 THEN _
RETURN
IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.LZH.ARJ.","."+Extension$+".") > 2 OR _
MID$(Extension$,2,1) = "Q" OR _
(ZRequireNonASCII AND Extension$ = "BAS") THEN _
ZWasDF = ZTrue